home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D11.D64 / 8 way scroll bas (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.8 KB  |  71 lines
  1. 1 DATA 120,169,78,141,20,3,169,192,141,21,3
  2. 2 DATA 173,26,208,9,1,141,26,208,173,17,208
  3. 3 DATA 41,127,141,17,208,169,252,141,18,208,173
  4. 4 DATA 2,221,9,3,141,2,221,173,0,221,41
  5. 5 DATA 252,9,2,141,0,221,173,14,220,41,254
  6. 6 DATA 141,14,220,88,169,0,141,32,208,141,33
  7. 7 DATA 208,169,0,141,230,193,169,128,141,231,193
  8. 8 DATA 96,173,239,193,240,89,201,1,208,6,32
  9. 9 DATA 139,193,76,172,192,201,2,208,6,32,105
  10. 10 DATA 193,76,172,192,201,3,208,6,32,71,193
  11. 11 DATA 76,172,192,201,4,208,6,32,37,193,76
  12. 12 DATA 172,192,201,5,208,9,32,37,193,32,139
  13. 13 DATA 193,76,172,192,201,6,208,9,32,139,193
  14. 14 DATA 32,71,193,76,172,192,201,7,208,9,32
  15. 15 DATA 105,193,32,37,193,76,172,192,201,8,208
  16. 16 DATA 6,32,105,193,32,71,193,169,191,141,20
  17. 17 DATA 3,169,192,141,21,3,173,232,193,141,18
  18. 18 DATA 208,76,26,193,169,8,141,22,208,169,23
  19. 19 DATA 141,17,208,169,54,141,24,208,169,237,141
  20. 20 DATA 20,3,169,192,141,21,3,169,7,141,32
  21. 21 DATA 208,32,15,194,169,0,141,32,208,169,252
  22. 22 DATA 141,18,208,76,26,193,173,22,208,41,0
  23. 23 DATA 9,16,13,235,193,141,22,208,173,17,208
  24. 24 DATA 41,248,13,236,193,141,17,208,169,36,141
  25. 25 DATA 24,208,169,6,141,32,208,32,173,193,169
  26. 26 DATA 0,141,32,208,76,78,192,169,1,141,25
  27. 27 DATA 208,104,168,104,170,104,64,173,22,208,9
  28. 28 DATA 248,24,109,233,193,41,7,141,235,193,144
  29. 29 DATA 17,56,173,230,193,233,1,141,230,193,173
  30. 30 DATA 231,193,233,0,141,231,193,96,173,22,208
  31. 31 DATA 41,7,56,237,233,193,41,7,141,235,193
  32. 32 DATA 176,17,24,173,230,193,105,1,141,230,193
  33. 33 DATA 173,231,193,105,0,141,231,193,96,173,17
  34. 34 DATA 208,9,248,24,109,234,193,41,7,141,236
  35. 35 DATA 193,144,17,56,173,230,193,233,240,141,230
  36. 36 DATA 193,173,231,193,233,0,141,231,193,96,173
  37. 37 DATA 17,208,41,7,56,237,234,193,41,7,141
  38. 38 DATA 236,193,176,17,24,173,230,193,105,240,141
  39. 39 DATA 230,193,173,231,193,105,0,141,231,193,96
  40. 40 DATA 169,0,133,253,169,72,133,254,173,230,193
  41. 41 DATA 133,251,173,231,193,133,252,162,18,160,0
  42. 42 DATA 177,251,145,253,200,192,40,208,247,165,251
  43. 43 DATA 24,105,240,133,251,144,2,230,252,165,253
  44. 44 DATA 24,105,40,133,253,144,2,230,254,202,208
  45. 45 DATA 220,96,0,128,189,1,1,0,0,0,0
  46. 46 DATA 0,173,0,220,160,0,162,0,74,176,1
  47. 47 DATA 136,74,176,1,200,74,176,1,202,74,176
  48. 48 DATA 1,232,74,142,237,193,140,238,193,96,32
  49. 49 DATA 240,193,174,237,193,172,238,193,138,208,7
  50. 50 DATA 152,208,4,141,239,193,96,224,0,208,20
  51. 51 DATA 192,255,208,6,169,2,141,239,193,96,192
  52. 52 DATA 1,208,5,169,1,141,239,193,96,192,0
  53. 53 DATA 208,20,224,255,208,6,169,4,141,239,193
  54. 54 DATA 96,224,1,208,5,169,3,141,239,193,96
  55. 55 DATA 192,255,208,20,224,1,208,6,169,8,141
  56. 56 DATA 239,193,96,224,255,208,237,169,7,141,239
  57. 57 DATA 193,96,192,1,208,19,224,1,208,6,169
  58. 58 DATA 6,141,239,193,96,224,255,208,5,169,5
  59. 59 DATA 141,239,193,96,0
  60. 60 :
  61. 61 :
  62. 98 POKE53280,14:POKE646,14:POKE53281,6:PRINT CHR$(147)
  63. 99 PRINT:PRINT:PRINT"THE NUMBER PRINTED IS THE CURRENT DATA  LINE NUMBER"
  64. 100 T=0:FOR A=49152TO49794
  65. 110 READ B:POKEA,B:T=T+B
  66. 115 PRINTCHR$(19);PEEK(63)+256*PEEK(64)
  67. 120 NEXT A
  68. 130 IF T<>83841 THENPRINT "ERROR IN DATA":END
  69. 140 SYS 49152
  70. 150 END
  71.